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RECEIVED 

CENTRAL PAX C2NTER 
J AN ] 6 2009 



IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 

Applicant: A. Christian Tahan Examiner: Robert W. Morgan 

Application No: 09/784,751 Art Unit: 3626 

Filing Date: 02/1S/2001 

Xitle: Method Of Using a Global Server For Providing Patient Medical 

Histories To Assist In the Delivery Of Emergency Medical Services 
Attv. Docket: XWRLD-102 



THIRD SUPPLEMENTAL RULE I'M DECLARATION 

Commissioner of Patents & Trademarks 
U.S. Patent and Trademark Office 
P. O. Box 1450 
Alexandria, VA 22313-1450 

Now comes A. Christian Tahan and deposes and says: 

1. That I am submitting this third Rule 131 Declaration to submit evidence 
that prior to February 22, 2000 I actually reduced to practice the claimed invention on at 
least on two occasions. 

2. That prior to February 22, 2000 the first reduction to practice was at my 
father's house at 1312 Edward Drive, Moncks Corner, South Carolina, in which a 
database was populated with patient information, patient identification was inputted, the 
information about the patient was inputted from a remote site and the database was 
queried to provide information back to a wireless Palm device for emergency personnel 
at an accident scene based on identification of the patient 

3 . That Appendix A is Samir Tahan' s Declaration in Support attesting to the 

above 
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4. That prior to February 22, 2000 this first actual practice took place on a 
computer at 1312 Edward Drive which had the required data entry devices, including a 
keyboard and had requisite display for displaying the results of the query of the database 
which were transmitted to a wireless Palm device. 

5. That Appendix B provides photographs of the server used at 1312 Edward 
Drive for the actual reduction to practice of the claimed invention prior to February 22, 
2000; and a series of screen shots which were the result of running the Corel program on 
the server at 1312 Edward Drive prior to February 22, 2000 that indicates that Windows 
98 was the operating system, that Netscape Communicator was the browser utilized, that 
an actual patient record was stored on the server, that a login form for Quest Rx was used 
to enter information into the database, that a specific ID was assigned to the patient and 
that the Corel database was used for storage of patient information. 

6. That Appendix C is a photograph of the Palm handheld device used in the 
actual reduction to practice at 13 12 Edward Drive prior to February 22, 2000. 

7. That this reduction to practice was witnessed by Sarnir Tahan. 

8. That the second actual reduction to practice occurred prior to February 22, 
2000 on my personal computer at MIT witnessed by Alexandra Dunn who was familiar 
with my work* 

9. That prior to February 22, 2000 Alexandra Dunn at a demonstration of the 
claimed system at MIT saw me populate a computer database on my personal computer 
with patient information by filling out a form and entering a Patient ID into a database in 
my personal computer that had patient records, that she saw me retrieve the relevant 
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patient information which was transmitted to a wireless Palm handset owned by me and 
brought to MIT to be able to show Alexandra Dunn my system* 

10. That Appendix D is Alexandra Dunn's Declaration in Support attesting to 
the above. 

1 1 . That my personal computer used for the demonstration at MIT employed 
the DB2 database which was programmed in part with the C++ code listed in my 
previous Rule 131 Declaration. 

12. That Appendix E hereto documents portions of the C++ code used to 
program my personal computer used for the demonstration at MIT, categorizing the code 
as to function. 

13. That Appendix F provides maps of the interactive tables used tn the 
demonstration at MIT. 

14. That the demonstration at MIT constitutes a second actual reduction to 
practice of the claimed invention. 

15. That the two actual reductions to practice of my claimed invention prior to 
February 22, 2000 require removal of the Schoenberg and Zak et al. references. 

Further deponent sayeth not. 

I further declare that all the statements made herein of my own knowledge are 
true and that all statements made on information and belief are believed to be true; and 
further that these statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 1001 

3 

91 "d 98T^-£2Z,-£I9 uaipuei * m ^Jaqoy WdOe^SI B002 ST uef 



8tHC:(SS-lum> NOIIVana • 9812 ZZl 119>Q\SD . OOCSG^SINQ *CW9-dUXd3-01dSn:UAS h [3UJ|i pjepueis UJajseg] IAIV QS WH 6002/9 HI XVQAOM . 30Vd 



of Title 18 of the United States Code, and that such willful false statements may 
jeopardize the validity of the application or any patent issuing thereon. 

Date: Qx^wv^ \& , ^1 A. Christian Tahan 
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RECEIVED 
GEMTRAL FAX CENTER 

JAN 1 6 2009 



IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



Applicant: 
Application No: 
Filing Date- 
Title: 

Afty. Docket: 



Robert W. Morgan 

3626 



A Christian Tahan Examiner 
09/784,751 Art Unit: 

02/15/2001 

Method Of Using a Global Server For Providing Patient Medicaj 
Histories To Assist In the Delivery Of Emergency Medical Services 
XWRLD-102 



RULE 132 DECLARATION IN SUPPORT 

Commissioner of Patents & Trademarks 
U.S. Patent and Trademark Office 
P. O. Box 1450 
Alexandria, VA 22313-1450 

Now comes Samir Tahan and deposes and says: 

1. That I understand that A. Christian Tahan has filed a Patent Application 
entitled METHOD OF USING A GLOBAL SERVER FOR PROVIDING PATIENT 
MEDICAL HISTORIES TO ASSIST IN THE DELIVERY OF EMERGENCY 
MEDICAL SERVICES. 

2. That I understand that Mr. Tahan has provided a Declaration indicating 
that he conceived and reduced to practice the claimed invention prior to February 22, 
2000. 

3. That prior to February 22, 2000, 1 witnessed an actual reduction to practice 
of his invention at my house at 1312 Edward Drive, Moncfcs Comer. S.C in which a 
database was populated with patient information, a patient ID was inputted to the system, 
thereby to give access to the system, that information about the patient was inputted to 
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the system from a remote site and that the database was queried to provide information 
back to emergency personnel at the site based on the identity of the patient. 

4. That I am an engineer having been schooled in Italy and am conversant 
with Mr. Tahan's invention and assisted him by providing a server. 

5. That at the time I understood wireless communications and the necessity 
of assisting EMTS with updated information to permit them to assist patients at the site of 
care. 

Further deponent sayeth not. 

I further declare (hat all the statements made herein of my own knowledge are 
true and that all statements made on information and belief aie believed to be true; and 
further that these statements were made with the knowledge that willful false statements 
and the like so made are punishable by fine or imprisonment, or both, under Section 1001 
of Title 18 of the United States Code, and that such willful false statements may 
jeopardize the validity of the application or any patent issuing thereon. 
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IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



RECEIVED 
CENTRAL FAX CENTER 

JAN 1 6 2009 



Examiner; Robert W. Morgan 
Art Unit: 3 526 



Applicant: A. Christian Tahan 

Application No: 09/784,75 i 

Filing Date: 02/15/2001 j 

Title: Method Of Using a Global Server For Providing Patient Medical 



Histories To Assist In the Delivery Of Emergency Medical Services 



Atty. Docket: XWRLD-102 



RULE 132 DECLARATION IN SUPPORT 



Commissioner of Patents & Trademarks 
U.S. Patent and Trademark Office 
P. O. Box 1450 
Alexandria, VA 22313-1450 



Declaration indicating 



Now comes Alexandra Dunn and deposes and says; 

i 

1. That I understand that A. Christian Tahan has filejd a Patent Application 
entitled METHOD OF USING A GLOBAL SERVER FOR PROVIDING PATIENT 
MEDICAL HISTORIES TO ASSIST IN THE DELIVER^ OF EMERGENCY 
MEDICAL SERVICES. 

2. That I understand that Mr. Tahan has provided a 
that he conceived and reduced to practice the claimed invention prior to February 22, 
2000. 

3. That prior to February 22, 2000 I was asked by Ch^is Tahan to come over 
to MIT to take a look at his system for providing emergency personnel with information 
critical to patient treatment, especially at an accident scene. 

4. That prior to February 22, 2000 Chris Tahan transported his personal 
computer and Palm handheld device to a convenient room at MIT 
his sytem. 



where he demonstrated 
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£t 



entered 



the 



5. That at the time Td just finished high school ana 
becoming an EMT because my father was a physician who 
was thus aware of the need for equipment that could provide 

treatment options. 

6. That prior to February 22, 2000 when I arrived 
observed Chris Tahan loading patient information into a database 
specialized form he had provided for data entry. 

7. That prior to February 22 r 2000 Chris Tahan 
into the computer which accessed database records in whiclji 
corresponded to patient identification which were displayed on 

8. That prior to February 22, 2000 this information 
computer to a Palm handheld device, with the patient 
device from his computer. 

9. That prior to February 22, 2000 the information 
was useful in determining patient condition, history and patient 

10. That upon demonstration of Chris Tahan 5 s 
that the system worked to provide useful information to EMT's 
an accident to assist in patient treatment. 

Further deponent sayeth not, 

I further declare that all the statements made herein o 
true and that all statements made on information and belief 
further that these statements were made with the knowledge 
and the like so made are punishable by fine or imprisonment, 



hat I was interested in 



traveled extensively; and I 
patient information and 



the MIT classroom I 
on his computer using a 



information 



a patient ID number 
the database records 
computer screen, 
^as transmitted from his 
downloaded to the 



system 



downloaded to the device 
treatment. 

it was apparent to me 
or others at the scene of 



are 



thkt 



or 



my own knowledge are 
believed to be true; and 
willful false statements 
both, under Section 1 001 
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of Title 18 of the United States Code, and that such willful 
jeopardize the validity of the application or any patent issuing 



therfeon 



Date: 



Alexandra Dunn 



false statements may 



3 



uaipuei ->| ^Jeqoy WdOS :2I 6002 SI uep 



Best Available Copy 

8 WCUss-uiui) NOIlVUna * 98U ZZL IV&Q\$0 * 00C8eZ2:SINa * CW9-dHXd3-01dSn:UAS * [auj|i pjepueis uiaisea] WV 09:9eUL 6002/9 Ul IV QAOd * SZ/SG 30Vd 



APPENDIX E 



3&XL-e3L~LXS 



jBTpuai *» ^jaqoy WdOS*2t 6002 ST uef 



Best Available Copy 



8t-|.£:(ss-uiiu) NOIlVUna * 9211 til ZI-9:aiS0 u 00E8CZ2:S1NQ * Ct/9-dHXd3"01dSn:aAS * laui|± pjepuejs ujaiseg] wv 0$:9Z: U 6003/9 Wl IV CJAOU * SZ/9C 30Vd 



[Code provided here is for the input of patient information obtained with an 
identification code at the site of the patient in distress; code below assists in 
assigning labels to uploaded patient files for storage and retrieval] 

//♦* ************** **********************************,,, 

// * 

// FileOfLabels * 

// * 

i*** ******** 

FileOfLabels: :FileOfLabels() 

{ 

prev_entry=0; 
} 

FileOfLabels: :~FiIeOfLabels0 
{ 

prev_entry=0; 
} 

if (symb_position[prev_entry].pos_in_fiie===OUL OR 
symb_jK>sition[0].pos_in_file=OUL) 
merr«r i Unsegmented file. Filtered access not possible"; 

if (symb_position[prev_entry] .pos_in_fil£>act_smp AND 

symb_position[prev_entry] ,num_sym==sy m) 

A5sert(prev_entry=0 OR symb_position[prev_entry- 
1 ] .pos_in_file<act_smp) ; 

new_smp_pos=act_smp; 
return (Boolean)TRUE; 
} 

prev_entry++; 

while (prev_entry<symb_position,DimO AND 

symb_position[prev_entry] . jiumsym! =sym) 

prev_entry-r-h; 

if(prev_entry=synib_position t DiniO) 
{ 

new_smp_pos = 0; 
prev_entry = 0; 
return (Booiean)FALSE; 
} 

else { 

new_smp_pos^syinb_positiofi[prev entry- 1 ].pos__in_file; 
return (Boolean)TRUE; 

} 
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//BINARY search 

t_index step,i; 
i=(symb_position.DiinO)/2 ; 
step=(l+iy2; 

while(!(symb_jposition[i].pos_in_file<smp AND 
symb_position[i+ 1 ].pos_injfile>smp) 

AND !(symb_position[i].pos_in_file>smp AND ij=0)) 

{ 

if (symb_jx>sition[i].pos_in_file<smp) 

B-=step; 
else i-=step; 

step=(l +step)/2; 

> 

if(i!=0 OR symb_position[i].pos_in_file<smp) 

i++; 

syirr=symb jposition[i] ,num_sym; 
i=prev_entry; 
return; 
} 



for(j=0y<dim;j+-H) 
{ 

Transl ate_Symbot(tempsymb, sy mb_position[j ] ,nu[m_sym) ; 
ffle<<tempsymb<<" 
} 

file«endl; 
return file; 

} 



void GenericFiIeOfLabels::Reset0 
{ 

label= No_Symbol; 

pTev_entry=0; 

symb_position.Reset(); 

sy mb_table.Reset() ; 

return; 

} 
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*********** 



,y*********** ****** **************** ***** ************* ay********* 

// NTimitLabel * 

// * 

/y* ********** ********* * ***************************** 4^ 

Boolean NTimitLabelClass:;Initialize(coiist String & file_name, 

const String & file_sjection, const String 

&label_ext) 
{ 

tjndex num_sym ; i; 
label_extension=4abel_ext; 
Assert(label=NTimitLabel); 
const char ^ist^of^symbolsft^ 



«owVl\VYyVWVerVax^ 

Mh ? ^"b^M^ ,, dx , ^ ,, nx , ^ ,, g , ^v 3 "t , ^ M k r ^"q^ o z^ l, zh , 

"sh^W/TivVpclVtelV^ 
num_sym=63; 

symb_table .Destroy_And_ReDim(num_syrn); 
for(i=0;i<num_sym;i-H-) 

symb_table[i]=listof_symbols[i] ; 

return TRUE; 
} 



Boolean NTimitLabelClass::Open_Sym(const String & file_name 
{ 

String name,temp; 
ifstream fjis; 
t_index i=0; 
t_index num_sym=0; 
tjndex tempnum; 

prev_entryH); 

name<<file_jiame<<" «label_extension; 
f_lis,open(name 5 ios::in|ios: :nocreate); 



ayVoy'V'aw", 



"ch'V'jh' 1 , 
/VV'fV'th'V's", 

#h M ,"pau M , ,, ax-h ,r }; 
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if(fjis.faii()) 

while (NOTfJis.eofO) 
{ 

f_lis»temp_nvim; 
f_lis»temp_num ; 
f_lis»temp; 

ift!(f_Us.eofO AND temp[0J=EOF)) num_syrn-H- 
} 



f_lis.clear(); 
f_jis.seekg(0,ios::beg); 

if (num_syrn^=0) 

merr« M Empty file of ID transcription 1, «name; 

symbjosition.Destroy_And_ReDim(num_sym); 
for (i=0;i<num_sym;i-H-) 

{ 

fjis>>temp_num; 

f_lis>>symb_positiori[i].pos_in_fik; 

f_lis»temp; 

symbjx>sitiori[i].num_sym=Translate_Symbol(terrp); 
} 

fJis.dose(); 

return TRUE; 
> 



y^******** +*****************+******************* ****** ********** 

// * 

// NTimitReducedLabel * 

// + 

jtif. * * * ****** *** « *** * * * * <c>|c4e * * ** *** *4 * ** * *** ********** 

Boolean NTiinitReducedLabeJClass::Open_Sym(cx>nst String & file name) 
{ 

String name 3 temp; 
ifstream fjis; 
t_index i=0; 
t_index num_sym=0; 
t_index tempjaum; 
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prev_entry=0; 

najne<<file_name<< ,r . n <<labeL_extensiori; 
f_lis.open(name 3 ios :;injios : :nocreate) : 
if(fjis.fail()) 

merr^'CouId not open ID transcription file: M «£ame; 

whiie (NOT f_lis.eofi3) 
{ 

f_lis»temp_num; 
f_lis»temp_num ; 
f_iis»temp; 

if(!(f_Us.eofO AND temp[0]=EOF)) num_sym+4; 



f_lisxlear(); 
fjis.seekg(0,ios::beg); 

if (nuin_sym==0) 

merr« u Empty file of [D transcription M «name; 

symb_jwsition.Destroy_And_ReDim(num_syni); 
for (i-0;i<num_sym;i-4-h) 

{ 

fjis»temp_mim; 

f_iis>>symb_position[iJ.pos_in_file; 
f_lis»temp; 

symb^sition[i].num_sym=Transiate_Symbol(ten^p)i 

f_lis.close(); 

return TRUE; 
} 



UndexNTimitReducedLabeIClass::Translate_Symbol(co 

t_index num=0; 
t index lensym; 



Assert(label === NTimitReducedLabel OR label ==AtisLabel) 
len_sym=symb_table.Dim() ; 

while(num<len_sym AND symb_table[numj!=sym) 



String & syrn) const 
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nurn++; 

if(num=len_syrn) 
{ 

i^sym-— "ux") mira=7; else 
if(sym= =,, er') num-16; else 
if(sym="axr") mim=20; else 
if(sytn= rt ax-h ,T ) num=5; else 
if(sym="em") num=2 1 ; else 
if(sym="en ,, ) num=22; else 
if(sym— "nx") num-22; else 
if(sym— "eng'') num-23; else 
if(sym="q") nura=\32; else 
if(sym="hv' T ) num^40; else 
if(sym="pcr) num=41; else 
if(sym=="tcl") num=4 1 ; else 
if(sym== ft kcr) nurrv=41; else 
if(sym= fr qcr') num=41 ; else 
if^sym=^ r 'bcr') num=42; else 
if(sym== f, dcl") num=42; else 
if(sym= tl gcr i ) num=42; else 
if^sym= n *** ,, )num=100;else //separator 

if(sym= ,1 #h" OR sym="hr OR sym = "pau" ) 

else { 

merr« ,r unknown symbol of NTIMIT, Symbol: "«sym; 
} 

> 



return num; 
} 



Boolean NTimitReducedLabelClass::Initialize(const String & file 
section_name, const String &Iabel_ ext) 

{ 

t_index num_sym,i; 
label_extension-label_ext; 
Assert(labeI=NTirtxitReducedLabel); 
const char *list_of_syrnbols[]= 



name, 

const String & 
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{ , 4y , ^ ,, Lh^ ,, eh^ ,, ae"; , ix^ n ax^ , W^ n uw^' , uh^"ao^ ,, aa^" 

"l^v^v/v/^"e^^ B m^ ^ n^"l^^-ch , ^"jh ,f f "dh^" 
,, k r ^ ,! 2 , ^ , w^ , v^"^/w, n s^"sh^ n hh^ f, c^, f, vcl ^ ; , 

num_sym=46; 

symb_table.Destroy_And_ReDiin(num_sym); 
for(i=0;i<num_sym;i4+) 

symb_table[i]^lis t_of_symbols[i] ; 

return TRUE; 
} 



^y********** ********** ************************ ******* 

// * 

// NTimit39Label * 

// * 

******************* ******* ************************ 

Boolean NTimit39LabelClass::OpenJSym(const String & filejiaijne) 
{ 

String name,temp; 
ifstream f_lis; 
tindex i=0; 
t_index num_sym=0; 
t_index temp_mun; 

prev_entry=0; 

name«file_name« f, . M «iabel_extension; 
f_Us.open(name,ios::in|ios::nocreate); 
if(fjis.fail0) 

merr«"Conld not open ID transcription file: "«njime; 



while (NOT f Jis,eofO) 
{ 

f_lis»temp_num; 
fj i s» t empnum; 
f_lis»temp; 
ifl[!(f_lis.eofO AND temp[0]=-EOF)) niirojsym-H-: 
} 



M , M ay r, , n oy , \ ,, aw"/'ow" 
6pi' , 5 t, sir ? "dx n }; 



*********** 



********** 



fjis.clear(); 
f_lis.seekg(0,ios::beg); 



2* 
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if (rmm_sym=0) 

merr« ,l Erapty file of ID transcription "«name; 

symb_jK>sidon.Destroy_And_ReDim(num_syin); 
for (i=0;i<num_svm;i-i-+) 

{ , 

fj i s» tern p_num ; 
f_lis»symb_positionri].pos_in_file; 
f_lis»temp; 

symb_jx>sition[i].niun_sym 

fJisxloseO; 

return TRUE; 
} 

t_indexNTimit39LabelClass::Translate_Symbol(const String & sjym) const 

t_index nurn=0; 
Mndex lenjsym; 

Assert(label =NTimit39Label); 

len_s}Tn=symb_tablc.DimO; 

while(num<len_sym AND symb_table[nurn]!=sym) 
num-H-; 



"del" 
//sil 



if (n um^l en_sym) 
{ 

if(sym="#h" OR S ym-="h#" OR sym— "pau" 
OR sym = "tcl" OR sym = "kcl 1 ' OR 



OR sym = "gel" OR sym = "qcl" OR sy 



else if(sym==^ , ux ,, ) num=5; //uw 

else if(sym== M el") num=13; // 1 

else if(sym="axr tr ) num=l 7; //er 

else if(sym= n ax-tT OR sym== M ax M ) num=4; //ah 

else if(sym= ,, em M ) num^l 8; // m 

else if(sym= H en" OR sym=-"nx") num=19; // n 

else if(sym— 'eng") num=20; //ng 

else if(sym= fl q fr ) num-29; 

else if(sym=="hv n ) num=36; 



OR 

sym 



sym =* "pel" 

— = "bcl" OR sym = 



m = M epi") num=37; 



//k 
//hh 
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else if(sym="ao t1 ) nura-7; 
else if(sym~ T bc") num=l; 
else if(sym= M zh n ) num-35; 
else if(sym= M ***") num=100; 



else { 



} 



merr^'unknown symbol of NTIMIT. 
} 



//aa 
//ih 
//sh 

// separator 



Symbol: "«sym; 



return num; 
} 



Boolean NTimit39LabelCIass;:Initialize(const String & file_nam j 

sectionjiame, const String &Iabel_ext) 
{ 

t_index num_sym,i; 
label_extension=l abel_ext; 
Assert(label====NTirnit39Label); 



,, oy , V , aw n ;ow", 

l>i 



const char *Iist_of_symbols[]= 

{^y^ f 4h^ ,f eh^ ,! ae^•'ah^"uw^"uh^ h aa^"ey^ <t ay , ' 

,, l^v/v^ , v^ ,^ er^"m^ , '^^"ng , ^"ch^ r, jb^"dh^"l 
,, p^ ^ T^"k^"z^ M v^ ^ T^ ,, tb^"s^ ,f sh^*w^si^/■dx" 

num sym=39; 

synib_table.Destroy_And_ReDini(niini_sym); 
for(i=0;i<nurn_sym;i-i-h) 

symb_table [i]=list_of_symbols [i] ; 

return TRUE; 
} 



Boolean AtisReducedLabelsClass; :Initialize(const String & fileriame, 

const String & 

section_name, const String &labeJ_ext) 
t_index num_syra s i; 



const String & 
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labei_extension=labei_ext; 
Assert(IabeI= AtisReducedLabel); 
const char *list_of_symbols[J= 

"l^"^^* , y^ ( v^ M m^ ^ n^ T, ch^ , jh^ ^ <lh r ^ ,t b^' f d rt / ^ g ,, 
v^"t^ ,^ k^' , z^>^"^/ , th^^^ f, sh^'w^"si^ , }; 

num_sym— 36; 



symb_table.Destroy_And_ReDim(num_sym); 

for(i=0;i<num_sym;iH-+) 

symb_table[i]=list_of_symbols[i]; 

return TRUE; 
} 

Boolean AtisReducedLabelsCIass:;Open Symfconst String &fi]e name) 
{ - 

String name,temp; 

if stream f_Iis; 

tindex i=0; 

t_index num_sym=0; 

t_index temp_num; 

prev_entry=0; 

name«file_name«", ,, «iabe]_extensdon; 
f Jtfs.open(name,ios::in|ios: :nbcreate); 
if(f_lis.failQ) 

merr«"Could not open ID transcription file; "«n£me; 



while (NOT fJis.eofQ) 
{ m 

fj i s» t emp_num ; 
Oi s>> temp_num ; 
f_lis»temp; 

if(!(f_Hs,eof() AND temp[0]=EOF)) num_sym++; 



f_HsxlearO; 
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f_tis.seekg(0,ios::beg); 

if (num_sym=0) 

inciT«"Empty file of ID transcription "«name; 

symb^osition.Des1roy_Aiid_ReDim(nuiri_syni); 
for (i==0;i<iiiim_sym;i-M-) 

{ 

f_lis»temp_num; 
^lis>>symb_position[i].pos_in_file; 
fjis>>temp; 

symb^ositfon[i].mmij5ym— Translate_Symbol(ten|ip); 
} 



f_lis.closeO; 

return TRUE; 
} 



tjndex AtisReducedLabelsClass::TransIate_Symbol(const String 

{ 

tjndex num=0; 
tjndex len_syin; 

Assert(Iabel =AtisReducedLabel); 
ien_sym=symb_table.DimO; 

while(num<len_syin AND symb_table[num]!=sym) 
num-H-; 

if(num==lenjsym) 

< 

if(sym— "ao") num=7; else // aa 
ifi(sym= n Lx") num= 1 ; else//ih 
if(sym="nx") nunr=18; else//n 
if(sym=— "ax") mmv=4; else // ah 
if(sym="zh") num=33; else//sh 
if(syrn= M *** M ) num-lOO; else // separator 



& sym) const 



{ 

rnerr«*unknown symbol of ATISLjabel. Symbol: M «sym; 
} 



return num; 
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} 



Boolean AtisLabelsClass::Open_Sym(const String & file_name) 

{ 

String name,temp; 
ifstream fjis; 
t_index i=0; 
t_index num_sym=0; 

prev_entry=0; 

name«file_name« r, . w «label_extension; 
f_3is.open(name ? ios: :in|ios: :nocreate); 

i£Cf_lis.ftaO) 

men<<"Could not open ID transcription file: M «n£jne; 

while (!f_Us.eofO) 
{ 

f_lis»temp; 

if(!(f_Iis.eofO AND temp[0]=EOF)) num_sym-h+; 
} 

f_lis.clear(); 

f_lis .seekg(0 ? io s : : beg); 

if (num_sym=0) 

merr« r, Empty file of ID transcription ,> «name; 

symbjosition.Destioy_And_ReDim(n\im_sym); 
for (i=0;i<num_sym;i++) 

{ 

fjis>>temp; 

symbjositionti].num_sym=Translate_Symbol(teiiLp); 
} 

f_lis.close(); 

return TRUE; 
} 

Boolean AtisLabelsClass::lnitialize(const String & file name, 

const String & 

section_name, const String &label_ext) 
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{ 

t_index num_sym,i; 
labelextensionHabe^ext; 

Assert(label== AtisLabel); 
{ 

const char *list_of_symbolsQ- 



{ 

const char *list__of_symbols[} : == 
{'V7 t i^ ,, ixV r ^' , aeVWr 

v^ ,, t^ ^ k^ ,, z^ , v^ f T^"th^ ,, s^ t, sh^"zh^ , w, M sil M }; 



num_sym ! =42; 

symb_table.Destroy_And_ReDim(num_syin); 

fcr(i=0;i<num_sym;i+-H) 
symb_tabIe[i]=List_of_symbols[i]; 

} 

return TRUE; 
} 



Boolean ApasciLabelsClass::Open_Sym(const String & file_nam€j 
{ 

String name^temp; 
ifstream f_lis; 
t_index i=0; 
t_index num_sym=0; 
t_index temp_num; 



prev_entry=0; 

name«file„nanle« ,, ( t, «label_extension; 
f Jis.open(name4os ; ;in|ios : rnocreate) ; 

iftf_Us.fail()) 

merr«"Could not open ID transcription file: " 



) 



«name: 



while (NOT fJis.ebfQ) 
{ 

f_li s»temp_num; 
f_lis»temp_num; 
f_lis»temp; 
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if(!(fjis.eof0 AND temp[0]=EOF)) num_sym++ 
} 



f_lis.clear(); 
f_lis,seekg(04os; : beg); 

if (num_sym=— 0) 

merr« H Empty file of ID transcription "«name; 

symb^osition.E>estxoy_And_ReDim(nuni_syni); 
for (t= : 0;i<num_sym;i++) 

{ 

f_lis»temp_num; 
^lis>>symbjosition[i].pos_in_file; 
f_lis»temp; 

symb^osition[i].num_sym=Ti^slate_Symbol(ter^p); 

fUs.closeO; 

return TRUE; 
} 

tjndex ApasciLabeIsClass::TransIate_Symbol(const String & syrA) const 

t index num=0; 
t_index len_sym; 

Assert(label = ApasciLabel); 
ien_sym=symb_table.Dim(); 

\vhile(num<len_sym AND symb tablc [num] !=sym) 
num-f+; 

if(num=len _sym) 
{ 

if(sym=-="E") num=l; //e 
else if(sym== n O") nura==3; // o 

else if(sym= 1, @bg") num=48; // sil 

else if(sym= ,, * Jic * n ) num=100; // separator 

else { 

merr« M unknown symbol of APASCI Symbol; 1, «sym; 



} 
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return num; 
} 



Boolean ApasciLabelsClass::rnitiaIize(const String & filejname, 

const String & 



section_name, const String &Iabel_ext) 



ss 



t__index num_sym,i; 
label_extension=label_ext; 
Assert(label= ApasciLabel); 
const char *Hst_of_syrnbolsO ==: 

{ , v^ ,, e^"i , ^ ,, o^ H u^ , T^ , v , ^ ,, s r ^"z^ r, s r ^"jB^ r ,"vv^ , ' 
,f ss^ns^ n dz^ H t5^ t, dz^ ,1 tts^ ,, ddz^ ,f tts l v ^ ddz^ 1r 
f, d^"g^"pp^»tt^"kk^ , ^b^"dd^"gg^"m^v^ ,, J" 

H L", ,, 1I" 3 V J "LL M ,W, (I @sch"}; 
nurn_sym=50; 

symb_table.Destroy_And - _ReDim(num_sym); 

for(i^0 ;i<numsyni; 
symb_table[i]=list_of_symbols[i]; 

return TRUE; 
} 



Boolean ApasciReducedLabelsCIass::Open__Sym(const String & file_name) 

String name,temp; 
ifstream flis; 
t_index i=0; 
tindex nurn_sym=0; 
t_index temp_num; 

prev entry =0; 

name«file_name« ,f ."«label_extension; 
Ois.open(name^os::in|ios::nocreate); 
if(f_Hs.fail()) 

merK^'Could not open ID transcription file: M «n4rae 



VwVyV'tV'kVb", 
M mm" J 4 W , > t, JJ n / , l ,, 5 M r" s 



os *d 
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while (NOT fJis.eofO) 
{ 

f_lis»temp_num; 
fjis>>tempnum; 
f_iis»temp; 
if(l(f_lis.eofO AND temp[0]==EOF)) num_sym+-f 
} 



fjis.clear(); 
f_H s,seekg(0,ios; :beg) ; 

if (num_sym=0) 

merr« r, Empty file of ID transcription "«name; 

symb - position.Destroy_And_ReDim(num_sym); 
for (i=0 ;i <numj ym ; i++) 
{ 

f_li s»temp__num; 
f_lis»symb_position[i].pos_in_file; 
f_lis»temp; 

symb^osition[i].num_sym=Translate_Symbol(tei)ap); 
> 

fJis.closeO; 

return TRUE; 
} 

tjndex ApasciReducedLabelsClass::Translate_Syn3bol(const Strug & sym) const 

{ 

t_index num=0; 
t index len_sym; 

Assert(label == ApasciReducedLabel); 
ien_syrn=syinb_table .DimO ; 

while(num<len_sym AND symb_table[num]!=sym) 
num-H-; 



if(nuni^len_syni) 
{ 

if(sym= M E")num=l; 
else if(sym— "O") num=3 ; 



//e 



//o 
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else if(sym=="fF') num=5; // f 

else if(sym=="w") num=6; // v 

else if(sym— "ss") num=7; // s 

else if(sym="SS") num=9; // S 

else if(sym="ttS") num= 1 0; //tS 

else if(sym="ddZ") num= 1 1 ; //dZ 
else if(sym="tts") num=12; /As 
elseifi[sym=="dd2")num=13; //dz 
else if(sym— "pp") num=16; // p 

else if(sym="tt") num= 17; // 1 

else if(sym="kk") num=l 8; // 
else if(sym=" bb") num=l 9; // 
else ifl[sym==' , dd") num-20; // 
else if^sym="gg") num=21; // 
else if(sym="mm") num=22; // m 

else if(sym= n nn") num=23; // ft 

else if(sym="JJ") num=24; // 
else if(sym="U") num=25; // 
else if(sym="rr") num=26; // 
else if(sym="LL") num=27; // 
else ifCsym^'^bg") num=28; // sil 

else if(sym=" * * * ") nmn=l 00; // separator 

else { 

merr«"unknown symbol of AP AS CI Syn^bol: "«sym; 
} 



const String & 



return num; 
} 



Boolean ApasciReducedLabeIsClass::Initialize(const String & filename, 

section_name 5 const String &label_ext) 
{ 

t_index numsymj; 
labe!_extension=labeI_ext; 
Assert(label==ApasciReducedLabel); 
const char *list of_symbols[]= 

, r/kVb^ , 'd^ ,, gV , m n /^^^ 
num_sym=30; 
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symb_table. Destro y_And_ReDi m(numjym); 
f orCi^ 0 ; i<num_sy m ; i -H-) 

symb_table[i]=l i st_of_symbols [i] ; 

return TRUE; 
} 



^'********** *************************** ^ 

// * 

// LabelTrans * 

// * 

/y**** ************* ********************************** A ********** 

Boolean CustoitiI^belsFroinFile::Initialize(const String & filename. 

String & section_name, const String &label_ext) 
{ 

merr« u this function must be implemented"; 
return TRUE; 
} 

Boolean CustoitiLabelsFromFile::Open_Sym(const String & filename) 

{ 

merr« ,, this function must be implemented"; 
return TRUE; 
} 



const 
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[Code here is related to the uploading of patient information . 
the database; code below tries to facilitate storage and finding 
part II is code that tries to update files, replacing old files witjh 



from the remote site to 
space for a large file; 
uploaded new files] 



^^^^^^^^^^^^^^ *^*************^****************r** *M 

// Create Storage Space - excluding actual data arrays 

// storage for min and max q values 
qHi,Destroy_And_ReDim(T); 
qLo .DestroyAndReDirn(T) ; 



// dimensioaate beta and obs_lprob 
beta. Destroy_And_ReDim(Q); 
obs_lprob. Destroy_And_ReDirn(Q); 
for(q=0;q<Q;q++) 

{ 

betafq] .Destroy_And_ReDim(T); 

obsJprob[q].Destroy_And_ReDim(T); 

} 

niaxP.Destroy_And_ReDim(Q); // for 

act_HMM - &HMM_defs[label_idxes_Iist[Q-l]]; 
Nq = act_HMM->num_states; 
beta[Q- 1 ][T-1 ] .De stroy_And_ReDim(Nq); 
beta[Q-l ]j> 1] [Nq-1 H>.0; 

fbr(i=l;i<Nq-l;i++) 

beta[Q-l][T-l][i] = act_HMM->trans_mat[i][Nq-l 

beta[Q-l][T-l][0]=LOGZERO; 
qHi[T-l]-qLo[T^l] = Q.l; 

Compute_Obs_LProbs(whoIe_file[T-l] ? TM, qffi[T-l], 

1], label_idxes_list); 
Assert(T>=2); 

for <t=T-2;t!=(t_index)(-l);t--) 
{ 

gMax = LOGZERO; // max value of beta at time 
if(t>^qHi[t+l]) startq=qHi[t+l]; 
else startq = t; 

if (0==qLo[t+l]) endq = 0; 
else endq = qLo[t+l}-l; 

Assert(startq>=endq) ; 



************** 



calculating beam width 



qLo[T- 
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for (q=startq;q!=(t_in<iex)(endq-l);q-) 
{ 

iMax = LOGZERO; // max value of beta iU model q 
act_HMM = &HMM_defs[labeMdxesJi£t[q]]; 
Nq = act_HMM->nuni_states; 
// create vec for beta vals 
beta[q] [t].Destroy_And_ReDim(Nq); 
outpro b — obs_lprob[q] (t+ 1 ] ; 

if (q=-=startq) beta[q][t][Nq-l]= LOGZEr|o 
else beta[q][tJ[Nq-l]= beta[q+l][t][0]; 

Assert(Nq>=2); 

for (i=Nq-2;i!=(t_index)(-l);i-) 
{ 

X = act_HMM->trans_mat[i][Nq4] + beta[q][t][Nq-l]; 

if (q>=qLo[t+l] AND q<=qHi[mj) 
for G=l;j<Nq-l;j+-+) 
{ 

a = act_HMM->trans_mat[iJ[j]; 

y = beta[q][t+l][j]; 
if (a>LOGSMALL 

x = LogAdd(| 
} // endfor j 

beta[q][t][i] = x; 
if (x>lMax) IMax = x; 
if (x>gMax) 

{ 

gMax — x; 
q_at _gMax = q; 

} // endfor i 
maxP[q] = IMax; 
} // endfor q 

last_q = endq; 

while (gMax-maxP[startq] > pruning^threshold) 

startq-=l ; // lower startq till threshold reached 
qHi [ t j = startq; 

while ( ((gMax-maxP[endq]) > pruning_threshold) AND endq<t) 

endq+=l ; // raise endq till thresh reached 
qLo[t] = endq; 

Compute_Obs_LProbs(whole_file[t], t ; qHi[t], qLo[t], labeljdxesjist); 



i\ND y>LOGSMALL) 
x,a-f outprob[j ]H-y) ; 
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} //endfort 

// compute total probability pr 
pr = LOGZERO; 
outprob = obs_Jprob[0][0]; 
for(j=ly<Nq-lJ-H4-) 

{ 

a = act_HMM->trans_mat[0] [j] ; 
y = beta[last_q][0][j]; 

if ( (a^LOGSMALL) AND (y>LOGSMALL) ) 
pr = LogAdd(pr,a+outprob[]]+y); 

} 

if (LOGZERO >=pr) 
{ 

mwarn«" Prune threshold = ,1 «pruning_thresho]jd«" too small."; 
return pr; 
} 

return pr; 

} 



// Setotprob: allocate and calculate otprob matrix at time t 
void ModelsSimultaneousTrainitig: :Compute_Obs_LProbs(const 



const t_index t, const t_index beam_top, 



label_jdxes_list) 
{ 



const t_index beam_bottom t const 



tjsigned q; 
t_index j, Nq, endq; 
VetDouble temp_dvet; 
EmbCodebook *act_HMM; 

if (O=beam_bottom) endq = 0; 
else endq = beam_bottom-l; 

for (q=beam_top; q>=(t_signed jendq; q~) 
{ 

act_HMM = &HMM_defs[label_idxes_list[q]]; 
Nq =' act_HMM->num_states; 

obs_lprob [q] [t] . Destroy^_And_ReDim(Nq- 1 ); 
for(j=ly<Nq-ly-f+) 

obsJprob[q][t]0]=(*act_HMM)[j-I].Obs 

} 



VetDouble& obs, 



VetULong& 



LProb(obs); 
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return ;} 

Partll 

/ ******* *********** UPDATE MODELS ****** **[******* 



void ModelsSimultaneousTraining:;Store_Statistic_Accs(const String& accs_file) 
{ 

t_index i j,h 9 k,z,Nh,Mh; 
t_index obs_size; 
ofstream file; 

file.open(accs_file); 
file,precision(OUTPUT_SIZE); 

for(h=0;h<HMM_accs.Dim()^i-H+) 
{ 

Nh=HMM_accs [h] ,num_state s ; 
Mh=HMM_accs[h] .num mixes; 

file« n file: "«h« u \n\n ,T ; 
fUe«"numJstances= M <<^MM_accs[h].num__istance^<<"\n M ; 
file«"num_states- M «Nh«"\n ,r ; 
fUe«"num_mixes= "«!Vrh«"\n\n ,, ; 
fiie« ir tran:\n"; 

for(i=0;i<Nh-l;i-H-) 
{ 

foiQ=la<NhJ++) 
file«HMM_accs[h].tran[i][j]«" 
file« M \ii M ; 
} 

file^'Nnocc: 
for(i=0;i<Nh-l;i-H-) 

fiLe<<HMM_accs[h].occ[i]<<" "; 

obs_size=HMM_accs[h] .mu[0] [0] .Dim() ; 

fiIe«"\n\ranu:\n M ; 
for(i=l;i<Nh-l;i++) 

for(j=0J<MhJ-f+) 
{ 

for(k : =0^c<dbs_sizeJc+-H) 

file<<HMM_accs[h].mu[i]D[]Ck]<< ,, 
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} 

if<THMM_accs[h].fuU_cov.DimO!=^) 
{ 

file«*'\nfull_cov: \n"; 
for(i=l;i<Nh-l;i++) 
for(j=0 J <MhJ-)-+) 
for(k=0;k<obs_size;k-H-) 

{ 

for(z=k;z<obs_size;; e++) 

file«HMM_accs[h].fiil]_cov[i] [j ][k] [z]«" 

file«"\n"; 
} 

} 

else{ 

file«"\n\ndiag_va: \n"; 
for{i=l;i<Nh-l;i++) 
forO=Ou<Mby++) 

{ 

for<k=0;k<bbs_size;k++) 

file«HMM_accs[hl 

file«"\n"; 
} 

} 



.diag_vafi]U][k]«" '•; 



file«"\nc: \n"; 
for(i=l;i<3srh-l;i++) 

{ 

for<j=Oy<Mh;j-H-) 

file<<HMM_accs[h].c[i] [}]<<*' M ; 
flle« ,, \n ,, ; 

} 

fiJe« M \n"; 
} 

filexloseO; 
return: 

} 



void ModelsSimultaneousTraining: :Load_Models_ParametersO 

tindex symbol, num symbols; 
tindex vec_size; 
String buffer; 
Boolean use_full_cov; 



8S *ol 



3BTL-£3L-L\S 



asTpuai ->j ^jaqoy WdVS^T 6002 ST uef 



Best Available Copy 



8f tc:(ss-uiuj) NOIlVana « 98U ZZl Zl9:aiSO « 00£8EZ3:SINQ .CW9-dHXJ3-01dSfi:UAS » fc>W|± pjepue*s iu3ise3] WV 0S:92:H 6002/91/1. 1VQAOM * SZ/6S 30Vd 



if stream init_spcf; 

init_spcf.open(models_file_input, ios::in|ios::nocreate); 
Read_Data_File_Header (initspcf, vec_size. use__full_cov 



if(featnres.Feature_Vet_DimO ! =vec_size) 

merr« tr Not compatible statistics dimension with initialized acoustic 

models"; 

Write_Header_Of_File_Model(models_fiIe_output, dbasejSnd_Type(), 
dbase.Label_Type(), dbase.Db_File_List_Name(), 
dbase.Window_Lenght(), 

dbase.Window_Overlap0 3 vec_size, usejfullcov) 

numsymbols = HMM_defs.Dtm(); 
HMM_accs.Destroy_And_ReE>im(nimi_symbols); 

for(symbol=0; symbol<num_symbols; symbol-H-) 
{ 

HMM_defs [symbol]. filers ymbol; 
HMMdefs [symbol] _ stat_dim= vec_si ze : 
HMM_defs[symbol].£uil_covariance=nise_full_co i v 
HMM_defs[symbol].Read(init_spcf, use_full_cov) 

HMM_accs[symbol].Configure(HMM_defe^ 
boll .mini gauss, 

vec size, use_full_cov); 

} 

return; 
} 



void ModelsSimultaneousTraining::Load_Statistic_Accs(const String& accs_file) 
{ 

tjndex ij 5 h,k > z > Nh,Mh; 
t_index obs size, file; 
ifstream file; 
String buffer; 
t_real val; 

file.open(accs_file 5 ios::injios::nocreate); 
if(file.failO) 

merr^'Couid not open file of statistics accumulators. 



); 
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file.precision(OUTPUT_SIZE); 



for(h=0;h<HMM_accs,Dim();h++) 
{ 

file»buffer; 

fiie»file; 

Assert(file=h); 



fde»buffer; 

file»HMM_accs [h] .numistances; 
file»buffer; 
file»Nh; 
fde»buffer; 
file»Mh; 
file»buffer; 
for(i=0;i<Nh-l;i+4-) 

for<j : =lu<Nliu++) 
{ 

file»val: 

HMMaccsfh] .tranfi] ft]+=val; 
} 

file»buflfer; 
for(i=0;iOJh-l;i-H-) 
{ 

file»val; 

HMM_accs[Ti].occ[i]+^al; 
} 

obs_size-HMM_accs[h].mu[0] [0].DimO; 
file»buffer; 

for(i=l;i<Nh-l;i-H+) 

for(j=0J<MhjH-l-) 

for(k=0;k<obs_size;k+-i-) 

{ 

file»val; 

HMM_accs[h].mu[i][j][k]+f=val; 
} 

file»buffer; 
if(buffer== M full_cov:'') 

for(i=l;i<Nh-l;i-H-) 

for0=0y<Mhy-H-) 

for(k=0;k<obs_size;k++) 

for(z=k;z<obs_size;^H-) 

{ 
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HMM_accs[h].fiill_cov[i](j][k][z]4-va]; 



file»val; 



} 



else for(i= 1 ;i<Nh-l ;i-H-) 

foi<j^y<Mhy++) 
for(k= : <);k<obs_size;k++) 
{ 

filc»val; 
HMM_accs[h] . di ag_y a[i| [j] [k]+==val ; 
} 

file»buffer; 
for(i=l;i<Nh-l;i++) 

for(j=OJ<MhJ++) 



} 

file.closeO; 
return; 

} 



file»val; 

HMM_accs[h] .c[i]Jj]-H=val; 
} 
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[Code here is related to the retrieval of the patient's file from 
by emergency personnel, hospital personnel, or insurers; sincje 
particular patient could be downloaded, a waste of time, since 
in appearance and stored in near-by locations with the other 
code below assists in saving the data as templates (a bundling 
data). The code was to allow for the assigning of specific parameters 
data sets to limit retrieval errors. Specific header files are 
templates.] 



us£d 



the database for use 
the wrong files of a 
the files were similar 
zode submitted, the 
format for similar 
to different 
to create the 



// Utilizing templates 

#ifedef_HYPOLIST_HPP_ 
#define _HYPOLlST_HPP_ 

template<class T> 

Boolean SparseList<T>::Has_No_Kids(t_ptr node) const 
{ 

//dummy definition so that at least one instance of 

//ImpObjectList<T> and linker can find the member function of the class 
ImpObjectList<T> dummy; 

return((Boolean)(List[node].niim_kids===0)); 
} 



template<class T> 

SparseList<T>::SparseList(naturaJ chunk) 
{ 

chunk_size=chunk; 
free^ist^O; 
start Jist=0; 
dim fre©=0; 

//allocate the nihii=0 element this can't be used 
List.Destroy_AndJReDim(l); 

return; 

} 



template<class T> 

void SparseList<T>::RestartQ 

{ 

freeJist^O; 

st&rl_listrO; 
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dirn_free=0; 

//allocate the nihil=0 element this can't be used 

List.Destroy_And_ReDim( 1 ) ; 

return; 

} 



teniplate<class T> 

void SparseList<T>::Reset() 

{ 

free_list=0; 
start_list=0; 
dirn_free=0; 

return; 
} 



template<class T> 

void SparseList<T>::Allocate_MemQ 
{ 

natural i; 

t_ptr temp=List.DimO; 

List.Save_And_ReDim(chunk_size+temp); 

//link the node of free list 
for (i=temp; i<temp+chunk_size-l; i++) 
List[i]Jink=-i+l; 

List[List.Dim(>l].Iink=freeJist; 

free_list=temp; 

dim_free-f=chunk_size; 

return; 
} 

template<class T> 

t_ptr SparseList<[>::Create(const T & info,t_jptr parent) 
{ 

t_ptr temp; 

if (free_list==0) 

A 1 1 ocate_MemQ ; 
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//get one node from free list 
temp=-free_list; 
freelist=List[temp] .link; 
dim free--; 

//verify that free_node is really free 

Assert(List[temp] . num_kids=Node: : Kids_Of_Free 

List[temp] .link=parent; 

List [temp] .num Jdds=0; 

List [temp] JnfcHnfo; 

List[parent].num_kids-H-; 

return temp; 
} 



Nod-K)) 



teraplate<class T> 

t_index SparseList<T>;;Num_Node() coast 
{ 

return (List.DimO-dim_free-t); 
} 



template<class T> 

t_ptr SparseList<T>::Next(t_ptr son) const 
{ 

Assert (son>0); 
return List[son].iink; 
} 

template<class T> 

void SparseList<T>;:Destroy_Node(t_ptrnode) 
{ 

Assert(node>0); 

if (List[node],num_kids>0) 

merr«" Attempt to destroy referenced node"; 

//decrease parent's num_kids 
List[Next(node)].nnm_kids— ; 
//add to free list 
List[node].link=free_list; 
free_!ist=node; 

List[freeJist].numJkids=Node::Kids_Of_Free_Node0; 
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dim_free-+ 

return; 
} 



template<class T> 
void SparseList<T>::Backtrack_From(IinpObjectList<T> & 

tindex i=0; 

Assert(nodeX)); 
sequence.ResetQ; 



sequence, t_ptr node) 



do 



{ 



sequence, S ave_And_ReDim(i+ 1 ); 
sequence[i]=(*this)[node]; 
i++; 

node^Next(node); 
} 

while ( node!^); 

// eliminate phantom node 
// is the following instruction necessary in order to eliminate 
// silence and duplicated typo? 

sequence.Save_And_ReDim(i- 1); 
T temp; 

for (i=0; i<sequence,Dim()/2; i++) 
temp^sequence[i]; 

sequence[i3=sequence[sequence.DimO-i-l]; 
sequence[sequence.Dim()-i- 1 ]=temp; 



return; 
} 



template<class T> 

void SparseList<T>::Destroy_Branch(tjptr node) 

t _ptr temp; 
Assert(node>0); 

if (Li st[node] .num_kids>0) 

merr«" Attempt to destroy referenced node"; 
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do { 

ternp=Next(node); 

Destroy_Node(node); 

node=temp; 

} 

while (List[node3.num__kids=0 AND nodeNO); 

return; 
} 



template<class T> 

T & Spars eList<T>::operator[](const t_ptr son) 

{ 

Assert(son>0) ; 

Assert(List[son].numJkids != Node::Kids_Of_Free_Nod€jQ); 

return List [son], info; 
} 



template<class T> 

const T & SparseList<T>::operator[](const t_ptr son)const 
{ 

Assert(son>0); 

Assert(List[son].num_kids != Node:;Kids_Of_Free_Nodej0); 

return List[son].info; 
} 



ternplate<ciass T> 
WellTree<I>: :~WellTree() 
{ 

IJLst.ResetQ; 
leaves_dir.Reset(); 
kid^dir.ResetO; 
} 

template<class T> 

void WellTree<T>::Rcset() 

{ 

Leaves_dir.Reset(); 
kid_dir.Reset(); 
IJist.RestartO ; 
} 
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//needed by Viterbi.num_hypotesis 
template<class T> 

inline tjndex WellTree<T>::Num_EiementsO const 
{ 

return (l_list.Num_Node()); 
} 



template<class T> 

inline t_index WeUTree<T>::KidsJDim() const 
{ 

return kid_dir.Dim(); 
} 



template<class T> 

inline t_index WellTree<T>::Leaves_Dim() const 

{ 

return leaves dir.DimO; 
} 



teniplate<class T> 

void WellTree<T>::ReDim_Leaves__Dir_To(const t_index ix) 

leaves_dir.Save_And_ReDim(ix); 

return; 
} 



template<class T> 

inline void WeliTree<T>::Exchange_Leaves_Indexes(const tjndtjx 1, 

const t index j) 

t index aux; 

aux=leaves_dir[i]; 
Leaves_dir[i]=leaves_dirQ] * 
leaves_dir[j]~aux; 

return; 
} 
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template<class T> 

Boolean WellTree<a>;:Check_Kad_Prcsence_And_Get_Num(co^ T & actjdd, 
^ pjcid & kidjdx) 

t_index i=0; 
t index kid num; 



kid_num = kid_dir.DiraO; 
if (kid_num==0) 

return (Boolean) FALSE; 



else{ 



while (i<kid_nuin AND act__kid!-=Mist[kid_dir[i]] 1 

if (i— kid_num) 

return (Booiean)FALSE; 

else{ 

kid_idx=i; 

return (Boolean)TRUE; 
} 

} // end of else 



template<class T> 

inline const T& WellTree<T>::Get_Leaf_Info(const p_ 

return (l__list[leaves_dir[leaf|]); 
} 



leaf leaf)const 



template<class T> 

inline T& WellTree<T>:;Get_Leaf_Info(const pjeaf leaf) 

return (l_list[leaves_dir[leaf)]); 
} 

template<class T> 

inline const T& WeltTree<l>::Get_Kid_rnfo(const pjdd ktd)cons[ 

return (l_list[kid_dir[kid]]); 
} 

template<class T> 

inline T& WellTree<T>::Get_Kid_Info(const pjdd kid) 
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return (l_list[kid_<iir[kid]]); 
} 

template<class T> 

inline void WellTree<T>::Create_First_Leaf_OCTree(const T&J info) 

//if no elements in tree create leaf 
Assert(lJist.Num_NodeO=0); 
leaves_dir,Destroy_And_ReDim( 1 ); 
//0 pointer is NULL 

leaves_dir[0]=I_list ( Create(info ? 0); 
return; 



template<class T> 

inline void Wel!Tree<T>::Add_Kid_To_Leaf(coiist T& info, pj^af leaf) 

//if no elements in tree create a kid 
if (MistNum_Node()=0) 
{ 

kid_dir.Destroy_And_ReDim(l); 
//0 pointer is NULL 

kid_dir[0]=l_list.Create(info,0) ; 
return; 

} 



//abort if tree not empty and no leaves 
Assert(l_Ust.Num_NodeO>0 AND Ieaves_dir.Dim()! == 0); 

//abort if more than one well created 
Assert(lJistNum_Node()>0 AND leaves_dir[Ieaf]!=0); 

t_index kid_dim=kid_dir.DimO; 
kid_dir. Save_And_ReDim(kid_dim+ 1 ) ; 

kid_dir[kid_dim]=lJist.C^ 
return; 

} 



tempi ate<class T> 

void WeilTree<I>::Prune All Dead LeafO 
{ " " 

tindex i; 



69 



SB\L-£3L-L\3 



uaipuei •» ^ueqoy Wd9S:2I 6002 ST uef 



Best Available Copy 

8t-^:(ss-iuui) NOIlVUna • 981/ £Zl /19:QIS0 • 00C8GZZ:SINQ *CW9-daXJ3-OidSn:HAS « few!! pJEpuejs UJ3|SB3] WV 600Zmil 1VQA0M . HOVd 



tjndex nura_leaves=leaves_dir.DimO; 

// here its not necessary to update Ieaves_dir 
// since next_gen follows 
for (i=0; i<mim_leaves; i++) 

if (LlisLHas__No_Kids(leaves_dir[i]) ) 

Prune_Biind_Branch_From_Leaf(i); 

return; 
} 

template<class T> 

inline void WellT^e^^Prune.Blind.Bxanch.From.Leaf^pJealf leaf) 
Assert(l eaves dir.Dim()>= 1 ) ; 

lJist.Destroy_Branch(leaves_dir[leaf|); 

return; 
' } 



"Backtrack Jrom(a_node) returns a new list with every element 
//containing address of every nodes along path sequence 
tempi ate<cJass T> 

mline ™ id W^Tree^.-rBacktrack^FromampObjectList^ & 
l_Ust.Backtrack_.FromCsequence 5 leaves_dir[leaq); 

//start the next generation transform kid dir leaves dir 
template<class T> ~ ' 

inline void WellTiee<IX-:Next_G e n() // leaves=kid 

leaves_dir=kid_dir; 
kid_dir.ResetO; 
return; 
} 



template<class T> 

inIme voidWeIlTree<T>:rSubst_01d_Kid_Destroy Old Branch i 

const T& info ? p_leaf new_ 

LHstDestroy_Node(Jdd_dir[oId_kidJ); 
^_^r[oldJddH^^ 



s squence,pjeaf leaf) 



Ins_New(p_kid 
father) 
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return; 
} 



#endif 
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